home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1987 October
/
1987-10.d64
/
font printer
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
3KB
|
85 lines
10 rem copyright 1987 compute! publications, inc. - all rights reserved
20 rem c64 & 1526 (or 802) printer only
30 print"[147] copyright 1987 compute! pub., inc."
40 printtab(11)"all rights reserved":gosub460
50 dimch(80):ii=51200
60 sys49152:ifpeek(49449)=1thengosub450:goto60
70 print:input"document filename";f$:print
80 input"is the document saved as screen codes (ie., speedscript files)";k$
90 sf=0:g$=",s,r":ifleft$(k$,1)="y"theng$=",p,r":sf=1
100 print"[147]insert text disk and press a key"
110 poke198,0:wait198,1:poke198,0
120 open15,8,15:open8,8,8,"0:"+f$+g$
130 close8:input#15,a,b$:close15
140 ifa<>0thenprint"error - ";b$:print:gosub450:goto70
150 open8,8,8,"0:"+f$+g$
160 open4,4:open5,4,5
170 fl=0:get#8,a$,a$
180 ps=0
190 iffl<>0thenclose8:close5:print#4:close4:goto390
200 get#8,a$:fl=st:ifsfandasc(a$)>127thench(ps)=32:goto250
210 ifa$=chr$(13)or(sfanda$=chr$(31))thench(ps)=-1:goto280
220 ifsfthench(ps)=asc(a$):goto250
230 print"[147]";chr$(34);a$
240 ch(ps)=peek(1025)
250 ps=ps+1:iffl<>0thench(ps)=-1
260 ifps=80thench(ps)=-1:goto280
270 goto200
280 ps=0
290 b=ch(ps)
300 ifb=-1thenprint#4:goto180
310 a$=""
320 forj=ii+8*btoii+8*b+7
330 a$=a$+chr$(peek(j))
340 next
350 print#5,a$
360 print#4,spc(ps);chr$(254);chr$(141);
370 ps=ps+1
380 goto290
390 print"[147]"
400 poke198,0
410 print" do you want to print another document"
420 print" using this font";:input" n[157][157][157]";an$
430 ifleft$(an$,1)="y"thenprint"[147]":goto70
440 end
450 fort=1to1500:next:return
460 print"...loading ml":fori=49152to49503:reada:x=x+a:pokei,a:next
470 ifx<>44368thenprint"error in data statement.":end
480 return
490 data 169,52,160,193,32,30,171,32,74,192
500 data 32,11,193,32,159,192,169,0,133,251
510 data 141,40,193,160,200,132,252,162,7,160
520 data 7,177,251,106,145,251,126,42,193,136
530 data 16,245,202,16,240,160,7,185,42,193
540 data 145,251,136,16,248,24,165,251,105,8
550 data 133,251,165,252,105,0,133,252,206,40
560 data 193,208,210,96,160,0,140,41,193,132
570 data 204,132,253,32,228,255,162,8,221,30
580 data 193,240,246,202,16,248,164,253,201,20
590 data 208,5,192,0,240,231,136,201,13,240
600 data 13,204,39,193,240,221,201,20,240,4
610 data 153,96,193,200,162,1,134,205,166,207
620 data 208,252,120,32,210,255,88,201,13,208
630 data 196,169,0,153,96,193,169,1,133,205
640 data 165,207,208,252,169,1,133,204,96,169
650 data 15,168,162,8,32,186,255,169,0,32
660 data 189,255,32,192,255,169,1,162,8,160
670 data 0,32,186,255,173,51,193,162,96,160
680 data 193,32,189,255,169,0,162,0,160,200
690 data 32,213,255,32,207,192,96,162,15,32
700 data 198,255,32,207,255,141,50,193,201,48
710 data 240,36,169,1,32,195,255,32,204,255
720 data 169,13,32,210,255,173,50,193,32,210
730 data 255,162,15,32,198,255,32,207,255,201
740 data 13,208,241,169,1,141,41,193,32,204
750 data 255,169,15,32,195,255,96,169,96,133
760 data 251,160,193,132,252,160,255,200,177,251
770 data 208,251,140,51,193,96,0,145,17,157
780 data 29,148,34,19,147,16,0,0,0,0
790 data 0,0,0,0,0,0,0,0,147,17
800 data 17,73,78,83,69,82,84,32,70,79
810 data 78,84,32,68,73,83,75,32,38,32
820 data 69,78,84,69,82,32,70,79,78,84
830 data 32,70,73,76,69,78,65,77,69,58
840 data 13,0